(ange-ftp-get-file-entry): Allow for graceful

failure returning nil, as documented.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1ac2311e2661163c5bc5aefcc9e97c6b839f3edb..58ffe0b27d5bb8ac44bc09f27ee3f08482415a33 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2938,7 +2938,8 @@ this also returns nil."
               (setq ent (ange-ftp-get-files name t))
               (gethash "." ent))
          ;; i.e. it's a directory by child lookup
-         (gethash file (ange-ftp-get-files dir))))))
+         (and (setq ent (ange-ftp-get-files dir t))
+              (gethash file ent))))))
 
 (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
   (when dir-p